home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Triad.dxr / Internal_7_r hots.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.2 KB  |  55 lines
  1. property spriteNum, row
  2. global stock, reserve, equal, currentsel, getlist, godlist, basecard, leftlist, rightlist
  3.  
  4. on beginSprite me
  5.   if listp(reserve) = 0 then
  6.     reserve = [:]
  7.   end if
  8.   row = determinerow()
  9.   reserve.addProp(row, new(script("card pile")))
  10. end
  11.  
  12. on determinerow me
  13.   if spriteNum = 16 then
  14.     return #rone
  15.   else
  16.     if spriteNum = 17 then
  17.       return #rtwo
  18.     else
  19.       if spriteNum = 18 then
  20.         return #rthree
  21.       end if
  22.     end if
  23.   end if
  24. end
  25.  
  26. on mouseEnter me
  27.   if getlist <> VOID then
  28.     if reserve[row].getcardcount() = 0 then
  29.       if (row = #rone) and (getlist.getlastcard().rank = "jack") then
  30.         equal = 1
  31.         currentsel = spriteNum - 3
  32.         godlist = reserve[row]
  33.       else
  34.         if (row = #rtwo) and (getlist.getlastcard().rank = "queen") then
  35.           equal = 1
  36.           currentsel = spriteNum - 3
  37.           godlist = reserve[row]
  38.         else
  39.           if (row = #rthree) and (getlist.getlastcard().rank = "king") then
  40.             equal = 1
  41.             currentsel = spriteNum - 3
  42.             godlist = reserve[row]
  43.           end if
  44.         end if
  45.       end if
  46.     end if
  47.   end if
  48. end
  49.  
  50. on mouseLeave me
  51.   equal = 0
  52.   currentsel = 0
  53.   godlist = VOID
  54. end
  55.